#! usr/bin/perl -w
use strict;
use Switch 'Perl5';

sub main{
my $val =0;
switch ($val){
case 1 {print "1\n";}
case "bla" {print "bla\n";}
case "bla bla" {print "bla bla\n";}
default {print "aucun";}
}
#  switch ($val) {
# case 1 { handle_num_1(); }
# case "1" { handle_str_1(); }
# case [0..9] { handle_num_any(); last }
# case /\d/ { handle_dig_any(); }
# case /.*/ { handle_str_any(); }
# }

exit;
}

main();

# search for keeprs and keepchrpos files associated with input newbimfile
		#opendir REP, "../output_liftoversh" or die "cannot open  output_liftoversh/ directory";
		#my @dirfiles = readdir REP;
		#closedir REP;
		#foreach my $item (@dirfiles){
			# if($item =~ /keeprs_liftover_wellconverted_/){
		#		print $item;
			#}
		#}

#elsif ($file =~ /US\d+_(\d+)_S0\d_CGH_10\d_[A-Za-z0-9]{5}(_\d_\d)?\.txt.gz$/){				
#		if (not defined $2){
#			$filename = "$1";
#		}else{			
#			$filename = "$1$2";
#		}
